perm filename VEE.LOG[MF,DEK] blob
sn#754230 filedate 1984-05-11 generic text, type T, neo UTF8
This is METAFONT, WAITS Version -69.0 (INIMF) 11 MAY 1984 01:06
**vee
(VEE.MF[MF,DEK]
"straight V"; % bold V using straight strokes=>"straight V"; % bold V using str
aight strokes
=>
capheight=250; % its height=>capheight=250; % its height
rightedge=150; % its width=>rightedge=150; % its width
thickwidth=50; thinwidth=40; % stroke widths at left and right=>thickwidth=50;
thinwidth=40; % stroke widths at left and right
delta=5; % extra width allowed at the bottom=>delta=5; % extra width allowe
d at the bottom
=>
x1l=0; x1r=x1l+thickwidth;=>x1l=0; x1r=x1l+thickwidth;
x2l=x2r-thinwidth; x2r=rightedge;=>x2l=x2r-thinwidth; x2r=rightedge;
y1l=y1r=y2l=y2r=capheight;=>y1l=y1r=y2l=y2r=capheight;
y3l=y3r=y4l=y4r=0;=>y3l=y3r=y4l=y4r=0;
x3l-x1l=x2r-x4r;=>x3l-x1l=x2r-x4r;
x4r-x3l=thickwidth+delta;=>x4r-x3l=thickwidth+delta;
x3r-x3l=thickwidth; x4r-x4l=thinwidth;=>x3r-x3l=thickwidth; x4r-x4l=thinwidth;
=>
fill z3l..z1l&z1l..z1r&z1r..z3r&z3r..z3l&cycle;=>fill z3l..z1l&z1l..z1r&z1r..z3
r&z3r..z3l&cycle;
fill z4r..z2r&z2r..z2l&z2l..z4l&z4l..z4r&cycle;=>fill z4r..z2r&z2r..z2l&z2l..z4
l&z4l..z4r&cycle;
=>
toplabel(1l,1r,2l,2r);=>toplabel(1l,1r,2l,2r);
leftlabel(3l);=>leftlabel(3l);
rightlabel(4r);=>rightlabel(4r);
botlabel(4l,3r);=>botlabel(4l,3r);
next;=>next;
"changed to leave a notch";=>"changed to leave a notch";
=>
notchheight=(thickwidth+thinwidth)/2;=>notchheight=(thickwidth+thinwidth)/2;
=>
x1l=0; x1r=x1l+thickwidth;=>x1l=0; x1r=x1l+thickwidth;
x2l=x2r-thinwidth; x2r=rightedge;=>x2l=x2r-thinwidth; x2r=rightedge;
y1l=y1r=y2l=y2r=capheight;=>y1l=y1r=y2l=y2r=capheight;
y3l=y3r=0;=>y3l=y3r=0;
x3l-x1l=x2r-x3r;=>x3l-x1l=x2r-x3r;
x3r-x3l=thickwidth+delta;=>x3r-x3l=thickwidth+delta;
y4=notchheight;=>y4=notchheight;
(x4-x3l)/(x3r-x3l) = thickwidth/(thickwidth+thinwidth);=>(x4-x3l)/(x3r-x3l) = t
hickwidth/(thickwidth+thinwidth);
=>
fill z3l..z1l&z1l..z1r&z1r{z3l-z1l}..z4-(.5,0){down}..z3l{left}&cycle;=>fill z3
l..z1l&z1l..z1r&z1r{z3l-z1l}..z4-(.5,0){down}..z3l{left}&cycle;
fill z3r..z2r&z2r..z2l&z2l{z3r-z2r}..z4+(.5,0){down}..z3r{right}&cycle;=>fill z
3r..z2r&z2r..z2l&z2l{z3r-z2r}..z4+(.5,0){down}..z3r{right}&cycle;
=>
autolabel(1l,1r,2l,2r,3l,3r,4);=>autolabel(1l,1r,2l,2r,3l,3r,4);
next;=>next;
pausing:=0;=>pausing:=0;
The notch program was just repeated.
Now let's also do this, to finish the V:
fill z3l{up}..z4{right}..z3r{down}&z3r..z3l&cycle;=>fill z3l{up}..z4{right}..z3
r{down}&z3r..z3l&cycle;
=>
autolabel(1l,1r,2l,2r,3l,3r,4);=>autolabel(1l,1r,2l,2r,3l,3r,4);
next;=>next;
=>
end=>end
Output written on VEE.GF[MF,DEK] (3 characters, 3468 bytes).